home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / list.G < prev    next >
Encoding:
Text File  |  1992-09-23  |  13.0 KB  |  477 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   pop_list
  6.     :owner                  win
  7.     :width                  591
  8.     :height                 319
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Segal: List"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 t
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  pop_list
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  591
  30.     :height                 319
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :button
  42.     :name                   but_recall
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      348
  46.     :y                      12
  47.     :width                  77
  48.     :height                 19
  49.     :constant-width         nil
  50.     :button-type            :normal
  51.     :foreground-color       ""
  52.     :label                  "Recall list"
  53.     :label-type             :string
  54.     :initial-state          :active
  55.     :menu                   nil
  56.     :notify-handler         nil
  57.     :event-handler          nil
  58.     :user-data              ()
  59.     :actions                (
  60.         (
  61.         :from                   (pop_list but_recall)
  62.         :when                   (Notify )
  63.         :to                     (pop_list but_close)
  64.         :function_type          ExecuteCode
  65.         :arg_type               (:string)
  66.         :action                 ("recall_list();")
  67.         )
  68.     )
  69. )
  70. (
  71.     :type                   :button
  72.     :name                   but_store
  73.     :owner                  controls1
  74.     :help                   ""
  75.     :x                      429
  76.     :y                      12
  77.     :width                  72
  78.     :height                 19
  79.     :constant-width         nil
  80.     :button-type            :normal
  81.     :foreground-color       ""
  82.     :label                  "Store list"
  83.     :label-type             :string
  84.     :initial-state          :active
  85.     :menu                   nil
  86.     :notify-handler         nil
  87.     :event-handler          nil
  88.     :user-data              ()
  89.     :actions                (
  90.         (
  91.         :from                   (pop_list but_store)
  92.         :when                   (Notify )
  93.         :to                     (pop_list but_store)
  94.         :function_type          ExecuteCode
  95.         :arg_type               (:string)
  96.         :action                 ("store_list();")
  97.         )
  98.     )
  99. )
  100. (
  101.     :type                   :button
  102.     :name                   but_load
  103.     :owner                  controls1
  104.     :help                   ""
  105.     :x                      505
  106.     :y                      12
  107.     :width                  69
  108.     :height                 19
  109.     :constant-width         nil
  110.     :button-type            :normal
  111.     :foreground-color       ""
  112.     :label                  "Load list"
  113.     :label-type             :string
  114.     :initial-state          :active
  115.     :menu                   nil
  116.     :notify-handler         nil
  117.     :event-handler          nil
  118.     :user-data              ()
  119.     :actions                (
  120.         (
  121.         :from                   (pop_list but_load)
  122.         :when                   (Notify )
  123.         :to                     (pop_list but_load)
  124.         :function_type          ExecuteCode
  125.         :arg_type               (:string)
  126.         :action                 ("load_list();")
  127.         )
  128.     )
  129. )
  130. (
  131.     :type                   :text-field
  132.     :name                   text_l_fname
  133.     :owner                  controls1
  134.     :help                   ""
  135.     :x                      16
  136.     :y                      16
  137.     :width                  319
  138.     :height                 15
  139.     :value-x                95
  140.     :value-y                16
  141.     :value-length           30
  142.     :stored-length          80
  143.     :rows                   3
  144.     :foreground-color       ""
  145.     :text-type              :alphanumeric
  146.     :label                  "List name:"
  147.     :label-type             :string
  148.     :layout-type            :horizontal
  149.     :value-underlined       t
  150.     :initial-value          ""
  151.     :initial-state          :active
  152.     :read-only              nil
  153.     :notify-handler         nil
  154.     :event-handler          nil
  155.     :user-data              ()
  156.     :actions                ()
  157. )
  158. (
  159.     :type                   :text-field
  160.     :name                   text_description
  161.     :owner                  controls1
  162.     :help                   ""
  163.     :x                      4
  164.     :y                      39
  165.     :width                  571
  166.     :height                 15
  167.     :value-x                95
  168.     :value-y                39
  169.     :value-length           60
  170.     :stored-length          80
  171.     :rows                   3
  172.     :foreground-color       ""
  173.     :text-type              :alphanumeric
  174.     :label                  "Description:"
  175.     :label-type             :string
  176.     :layout-type            :horizontal
  177.     :value-underlined       t
  178.     :initial-value          ""
  179.     :initial-state          :active
  180.     :read-only              nil
  181.     :notify-handler         nil
  182.     :event-handler          nil
  183.     :user-data              ()
  184.     :actions                ()
  185. )
  186. (
  187.     :type                   :message
  188.     :name                   msg_image
  189.     :owner                  controls1
  190.     :help                   ""
  191.     :x                      16
  192.     :y                      62
  193.     :width                  54
  194.     :height                 13
  195.     :foreground-color       ""
  196.     :label                  "Image -"
  197.     :label-type             :string
  198.     :label-bold             t
  199.     :initial-state          :active
  200.     :event-handler          nil
  201.     :user-data              ()
  202.     :actions                ()
  203. )
  204. (
  205.     :type                   :text-field
  206.     :name                   text_i_dname
  207.     :owner                  controls1
  208.     :help                   ""
  209.     :x                      22
  210.     :y                      83
  211.     :width                  554
  212.     :height                 15
  213.     :value-x                96
  214.     :value-y                83
  215.     :value-length           60
  216.     :stored-length          80
  217.     :rows                   3
  218.     :foreground-color       ""
  219.     :text-type              :alphanumeric
  220.     :label                  "Directory:"
  221.     :label-type             :string
  222.     :layout-type            :horizontal
  223.     :value-underlined       t
  224.     :initial-value          ""
  225.     :initial-state          :active
  226.     :read-only              nil
  227.     :notify-handler         nil
  228.     :event-handler          nil
  229.     :user-data              ()
  230.     :actions                ()
  231. )
  232. (
  233.     :type                   :text-field
  234.     :name                   text_i_fname
  235.     :owner                  controls1
  236.     :help                   ""
  237.     :x                      22
  238.     :y                      106
  239.     :width                  554
  240.     :height                 15
  241.     :value-x                96
  242.     :value-y                106
  243.     :value-length           60
  244.     :stored-length          80
  245.     :rows                   3
  246.     :foreground-color       ""
  247.     :text-type              :alphanumeric
  248.     :label                  "Filename:"
  249.     :label-type             :string
  250.     :layout-type            :horizontal
  251.     :value-underlined       t
  252.     :initial-value          ""
  253.     :initial-state          :active
  254.     :read-only              nil
  255.     :notify-handler         nil
  256.     :event-handler          nil
  257.     :user-data              ()
  258.     :actions                ()
  259. )
  260. (
  261.     :type                   :message
  262.     :name                   msg_masks
  263.     :owner                  controls1
  264.     :help                   ""
  265.     :x                      15
  266.     :y                      129
  267.     :width                  56
  268.     :height                 13
  269.     :foreground-color       ""
  270.     :label                  "Masks -"
  271.     :label-type             :string
  272.     :label-bold             t
  273.     :initial-state          :active
  274.     :event-handler          nil
  275.     :user-data              ()
  276.     :actions                ()
  277. )
  278. (
  279.     :type                   :text-field
  280.     :name                   text_m_dname
  281.     :owner                  controls1
  282.     :help                   ""
  283.     :x                      21
  284.     :y                      150
  285.     :width                  554
  286.     :height                 15
  287.     :value-x                95
  288.     :value-y                150
  289.     :value-length           60
  290.     :stored-length          80
  291.     :rows                   3
  292.     :foreground-color       ""
  293.     :text-type              :alphanumeric
  294.     :label                  "Directory:"
  295.     :label-type             :string
  296.     :layout-type            :horizontal
  297.     :value-underlined       t
  298.     :initial-value          ""
  299.     :initial-state          :active
  300.     :read-only              nil
  301.     :notify-handler         nil
  302.     :event-handler          nil
  303.     :user-data              ()
  304.     :actions                ()
  305. )
  306. (
  307.     :type                   :text-field
  308.     :name                   text_m1_fname
  309.     :owner                  controls1
  310.     :help                   ""
  311.     :x                      36
  312.     :y                      173
  313.     :width                  539
  314.     :height                 15
  315.     :value-x                95
  316.     :value-y                173
  317.     :value-length           60
  318.     :stored-length          80
  319.     :rows                   3
  320.     :foreground-color       ""
  321.     :text-type              :alphanumeric
  322.     :label                  "Mask 1:"
  323.     :label-type             :string
  324.     :layout-type            :horizontal
  325.     :value-underlined       t
  326.     :initial-value          ""
  327.     :initial-state          :active
  328.     :read-only              nil
  329.     :notify-handler         nil
  330.     :event-handler          nil
  331.     :user-data              ()
  332.     :actions                ()
  333. )
  334. (
  335.     :type                   :text-field
  336.     :name                   text_m2_fname
  337.     :owner                  controls1
  338.     :help                   ""
  339.     :x                      36
  340.     :y                      196
  341.     :width                  539
  342.     :height                 15
  343.     :value-x                95
  344.     :value-y                196
  345.     :value-length           60
  346.     :stored-length          80
  347.     :rows                   3
  348.     :foreground-color       ""
  349.     :text-type              :alphanumeric
  350.     :label                  "Mask 2:"
  351.     :label-type             :string
  352.     :layout-type            :horizontal
  353.     :value-underlined       t
  354.     :initial-value          ""
  355.     :initial-state          :active
  356.     :read-only              nil
  357.     :notify-handler         nil
  358.     :event-handler          nil
  359.     :user-data              ()
  360.     :actions                ()
  361. )
  362. (
  363.     :type                   :text-field
  364.     :name                   text_m3_fname
  365.     :owner                  controls1
  366.     :help                   ""
  367.     :x                      36
  368.     :y                      219
  369.     :width                  539
  370.     :height                 15
  371.     :value-x                95
  372.     :value-y                219
  373.     :value-length           60
  374.     :stored-length          80
  375.     :rows                   3
  376.     :foreground-color       ""
  377.     :text-type              :alphanumeric
  378.     :label                  "Mask 3:"
  379.     :label-type             :string
  380.     :layout-type            :horizontal
  381.     :value-underlined       t
  382.     :initial-value          ""
  383.     :initial-state          :active
  384.     :read-only              nil
  385.     :notify-handler         nil
  386.     :event-handler          nil
  387.     :user-data              ()
  388.     :actions                ()
  389. )
  390. (
  391.     :type                   :text-field
  392.     :name                   text_m4_fname
  393.     :owner                  controls1
  394.     :help                   ""
  395.     :x                      36
  396.     :y                      242
  397.     :width                  539
  398.     :height                 15
  399.     :value-x                95
  400.     :value-y                242
  401.     :value-length           60
  402.     :stored-length          80
  403.     :rows                   3
  404.     :foreground-color       ""
  405.     :text-type              :alphanumeric
  406.     :label                  "Mask 4:"
  407.     :label-type             :string
  408.     :layout-type            :horizontal
  409.     :value-underlined       t
  410.     :initial-value          ""
  411.     :initial-state          :active
  412.     :read-only              nil
  413.     :notify-handler         nil
  414.     :event-handler          nil
  415.     :user-data              ()
  416.     :actions                ()
  417. )
  418. (
  419.     :type                   :text-field
  420.     :name                   text_m5_fname
  421.     :owner                  controls1
  422.     :help                   ""
  423.     :x                      36
  424.     :y                      265
  425.     :width                  539
  426.     :height                 15
  427.     :value-x                95
  428.     :value-y                265
  429.     :value-length           60
  430.     :stored-length          80
  431.     :rows                   3
  432.     :foreground-color       ""
  433.     :text-type              :alphanumeric
  434.     :label                  "Mask 5:"
  435.     :label-type             :string
  436.     :layout-type            :horizontal
  437.     :value-underlined       t
  438.     :initial-value          ""
  439.     :initial-state          :active
  440.     :read-only              nil
  441.     :notify-handler         nil
  442.     :event-handler          nil
  443.     :user-data              ()
  444.     :actions                ()
  445. )
  446. (
  447.     :type                   :button
  448.     :name                   but_close
  449.     :owner                  controls1
  450.     :help                   ""
  451.     :x                      524
  452.     :y                      292
  453.     :width                  51
  454.     :height                 19
  455.     :constant-width         nil
  456.     :button-type            :normal
  457.     :foreground-color       ""
  458.     :label                  "Close"
  459.     :label-type             :string
  460.     :initial-state          :active
  461.     :menu                   nil
  462.     :notify-handler         nil
  463.     :event-handler          nil
  464.     :user-data              ()
  465.     :actions                (
  466.         (
  467.         :from                   (pop_list but_close)
  468.         :when                   (Notify )
  469.         :to                     (pop_list)
  470.         :function_type          :user_defined
  471.         :arg_type               ()
  472.         :action                 (Hide)
  473.         )
  474.     )
  475. )
  476. )
  477.